unit uniRelPosicaoFinanceiraFaturaParcela;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, QRCtrls, jpeg, QuickRpt, ExtCtrls, DB, ADODB;

type
  TfrmRelPosicaoFinanceiraFaturaParcela = class(TForm)
    QR_Rel: TADOQuery;
    QR_Temp: TADOQuery;
    qrpRel: TQuickRep;
    QRBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel10: TQRLabel;
    qrlPeriodo: TQRLabel;
    QRLabel13: TQRLabel;
    qrImgCliente: TQRImage;
    QRLabel7: TQRLabel;
    QRLabel15: TQRLabel;
    qrbDetalhe: TQRBand;
    qrlFaturaParcela: TQRLabel;
    qrlTotDias: TQRLabel;
    qrlMarca: TQRLabel;
    qrlCliente: TQRLabel;
    QRBand2: TQRBand;
    QRLabel14: TQRLabel;
    QRSysData2: TQRSysData;
    QRSysData1: TQRSysData;
    qrlUsuario: TQRDBText;
    QRBand4: TQRBand;
    QRLabel9: TQRLabel;
    QRGroup1: TQRGroup;
    qrlRepresentante: TQRLabel;
    QRLabel6: TQRLabel;
    qrlParcela: TQRLabel;
    QRLabel12: TQRLabel;
    qrlDtVencimento: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel11: TQRLabel;
    qrlContato: TQRLabel;
    qrlFone: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel16: TQRLabel;
    QRLabel17: TQRLabel;
    qrlValorFatura: TQRLabel;
    qrlRecebido: TQRLabel;
    qrlSaldoRestante: TQRLabel;
    qrlTotValorFatura: TQRLabel;
    qrlTotalRecebido: TQRLabel;
    qrlTotalSaldoRestante: TQRLabel;
    QRLabel5: TQRLabel;
    qrlTipoSelecao: TQRLabel;
    qrlDtRecebimento: TQRLabel;
    QRLabel19: TQRLabel;
    QRLabel18: TQRLabel;
    qrlDesconto: TQRLabel;
    qrlTotalDesconto: TQRLabel;
    procedure qrbDetalheBeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
    procedure qrpRelBeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);
    procedure QRBand4BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
    procedure QRGroup1BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
  private
    cTotFaturado,
    cTotSaldo,
    cTotRecebido,
    cTotDesconto:Currency;
    intLinha:integer;
  public
    { Public declarations }
  end;

var
  frmRelPosicaoFinanceiraFaturaParcela: TfrmRelPosicaoFinanceiraFaturaParcela;

implementation

uses uniFuncBD, UniFuncoes;

{$R *.dfm}

procedure TfrmRelPosicaoFinanceiraFaturaParcela.qrbDetalheBeforePrint(
  Sender: TQRCustomBand; var PrintBand: Boolean);
var colCorBanda : TColor;
    intContador :integer;
    cFaturado,
    cRecebido,
    cSaldo,
    cDesconto:Currency;
begin 
  qrlCliente.Caption := QR_Rel.fieldbyname('razao').AsString;
  qrlMarca.Caption := QR_Rel.fieldbyname('descricao').AsString;
  qrlFaturaParcela.Caption := QR_Rel.fieldbyname('ds_fatura_parcela').AsString;
  qrlParcela.Caption := QR_Rel.fieldbyname('parcela').AsString;
  qrlDtVencimento.Caption := QR_Rel.fieldbyname('dt_vencimento').AsString;
  qrlTotDias.Caption := IntToStr(DataSub(QR_Rel.fieldbyname('dt_vencimento').AsDateTime));
  qrlDtRecebimento.Caption := QR_Rel.fieldbyname('dt_recebimento').AsString;
  qrlFone.Caption := QR_Rel.fieldbyname('fone').AsString;
  qrlContato.Caption := QR_Rel.fieldbyname('nome_contato').AsString;

  cFaturado := QR_Rel.fieldbyname('valor_fatura').AsCurrency;
  qrlValorFatura.Caption := formatarValor(CurrToStr(cFaturado));

  cDesconto := QR_Rel.fieldbyname('valor_desconto').AsCurrency;
  qrlDesconto.Caption := formatarValor(CurrToStr(cDesconto));

  cRecebido := QR_Rel.fieldbyname('valor_recebido').AsCurrency;
  qrlRecebido.Caption := formatarValor(CurrToStr(cRecebido));

  cSaldo := QR_Rel.fieldbyname('valor_fatura').AsCurrency - (QR_Rel.fieldbyname('valor_recebido').AsCurrency + QR_Rel.fieldbyname('valor_desconto').AsCurrency);
  qrlSaldoRestante.Caption := formatarValor(CurrToStr(cSaldo));

  cTotFaturado := cTotFaturado +cFaturado;
  cTotSaldo := cTotSaldo + cSaldo;
  cTotDesconto := cTotDesconto + cDesconto;
  cTotRecebido := cTotRecebido + cRecebido;
end;

procedure TfrmRelPosicaoFinanceiraFaturaParcela.qrpRelBeforePrint(
  Sender: TCustomQuickRep; var PrintReport: Boolean);
begin
   cTotFaturado := 0;
   cTotSaldo := 0;
   cTotRecebido := 0;
   cTotDesconto := 0;
   intLinha := 1;
end;

procedure TfrmRelPosicaoFinanceiraFaturaParcela.QRBand4BeforePrint(
  Sender: TQRCustomBand; var PrintBand: Boolean);
begin
  qrlTotValorFatura.Caption := formatarValor(CurrToStr(cTotFaturado));
  qrlTotalSaldoRestante.Caption := formatarValor(CurrToStr(cTotSaldo));
  qrlTotalRecebido.Caption := formatarValor(CurrToStr(cTotRecebido));
  qrlTotalDesconto.Caption := formatarValor(CurrToStr(cTotDesconto));
end;

procedure TfrmRelPosicaoFinanceiraFaturaParcela.QRGroup1BeforePrint(
  Sender: TQRCustomBand; var PrintBand: Boolean);
begin
  qrlRepresentante.Caption := QR_Rel.fieldbyname('nome').AsString
end;
end.
